home *** CD-ROM | disk | FTP | other *** search
/ Tech Win 1999 February / TECH Win 02-1999 Disc A.iso / ols / lzh / cgit2001.lzh / cgitools / timer.bat < prev    next >
Encoding:
DOS Batch File  |  1998-03-11  |  901 b   |  30 lines
  1. @echo off
  2. exmain %0 %1 %2
  3. if ("%1"=="") {
  4.   echo timer.bat の使い方
  5.   echo 書式１：timer mm          mm 分後にアラームを鳴らします
  6.   echo 書式２：timer hh mm       hh 時 mm 分にアラームを鳴らします
  7.   end
  8. }
  9. call string time=funcNow("" "?th;時?tm;")
  10. if ("%2"!="") {
  11.   call string time2=(int)val"%1"+"時"+(int)val"%2"
  12.   call int min=(val"%1"-(val"%time%"))*60+%2-valFuncFind("%time%" "時" /r)
  13.   if (%min%<0) call int min=%min%+60*24
  14.   call int sec=%min%*60
  15. } else {
  16.   call int min=val"%1"
  17.   call int sec=%min%*60
  18.   call string time2=funcNow("" "?th;時?tm;" +%sec%)
  19. }
  20. echo %time%分の%min%分後、%time2%分にアラームを鳴らします。
  21. echo 止めるには、「Ctrl-C」を押してください。
  22. wait -%sec%
  23. choice /t:y,10 "１０秒後にアラームを実行しますか"
  24. if errorlevel 2 end
  25. do {
  26.   print ?#x07;?#x07;?#x07;
  27.   choice /t:y,1 "時間です。アラームを続けますか"
  28.   if errorlevel 2 end
  29. } while (""=="")
  30.